﻿Public Class frmSearchLlamadas

    Private Sub frmEditarLlamadas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'frmIndex.Hide()
        For i = 0 To 100
            cboLoteNum.Items.Add(i)
        Next i
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'frmIndex.Show()
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (rbtAtencion.Checked = True) Then
            mfgridResultados.Clear()
            mfgridResultados.Cols = 1
            mfgridResultados.Cols = 31
            mfgridResultados.Rows = 1
            TitulosGResultAT(mfgridResultados)
            ResultadosAtencion(mfgridResultados)
        ElseIf (rbtVentas.Checked = True) Then
            mfgridResultados.Clear()
            mfgridResultados.Cols = 1
            mfgridResultados.Cols = 31
            mfgridResultados.Rows = 1
            TitulosGResultVT(mfgridResultados)
            ResultadosVentas(mfgridResultados)
        ElseIf (rbtPosvta.Checked = True) Then
            mfgridResultados.Clear()
            mfgridResultados.Cols = 1
            mfgridResultados.Cols = 29
            mfgridResultados.Rows = 1
            TitulosGResultPVTA(mfgridResultados)
            ResultadosPOSvta(mfgridResultados)
        End If
    End Sub

    Private Sub mfgridResultados_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles mfgridResultados.DblClick
        'SI la llamada es de ATENCION
        If (rbtAtencion.Checked = True) And (mfgridResultados.Rows > 1) Then
            'Datos de la auditoria NO modificables
            mfgridResultados.Col = 0
            frmEditAtencion.lbl_idLLamada.Text = mfgridResultados.Text
            mfgridResultados.Col = 1
            frmEditAtencion.txtfechaAudit.Text = mfgridResultados.Text
            mfgridResultados.Col = 2
            frmEditAtencion.txtFllamada.Text = mfgridResultados.Text
            mfgridResultados.Col = 3
            frmEditAtencion.txtNlote.Text = mfgridResultados.Text
            mfgridResultados.Col = 4
            frmEditAtencion.txtTipollamada.Text = mfgridResultados.Text
            mfgridResultados.Col = 5
            frmEditAtencion.txtEmpresa.Text = mfgridResultados.Text
            mfgridResultados.Col = 6
            frmEditAtencion.txtControlador.Text = mfgridResultados.Text
            mfgridResultados.Col = 7
            frmEditAtencion.txtAuditado.Text = mfgridResultados.Text
            '================ Valores para combos de opciones ====================
            mfgridResultados.Col = 8
            frmEditAtencion.cbo_salu.Text = mfgridResultados.Text
            mfgridResultados.Col = 9
            frmEditAtencion.cbo_empatia.Text = mfgridResultados.Text
            mfgridResultados.Col = 10
            frmEditAtencion.cbo_indagacion.Text = mfgridResultados.Text
            mfgridResultados.Col = 11
            frmEditAtencion.cbo_disposicion.Text = mfgridResultados.Text
            mfgridResultados.Col = 12
            frmEditAtencion.cbo_compromiso.Text = mfgridResultados.Text
            mfgridResultados.Col = 13
            frmEditAtencion.cbo_info.Text = mfgridResultados.Text
            mfgridResultados.Col = 14
            frmEditAtencion.cbo_comunicacion.Text = mfgridResultados.Text
            mfgridResultados.Col = 15
            frmEditAtencion.cbo_credibilidad.Text = mfgridResultados.Text
            mfgridResultados.Col = 16
            frmEditAtencion.cbo_cierre.Text = mfgridResultados.Text
            mfgridResultados.Col = 17
            frmEditAtencion.rtxt_afavor.Text = mfgridResultados.Text
            mfgridResultados.Col = 18
            frmEditAtencion.rtxt_encontra.Text = mfgridResultados.Text
            mfgridResultados.Col = 19
            frmEditAtencion.lbl_puntaje.Text = mfgridResultados.Text
            '======================================================================
            mfgridResultados.Col = 20
            frmEditAtencion.lblIdunico.Text = mfgridResultados.Text
            mfgridResultados.Col = 21
            frmEditAtencion.txtCaso.Text = mfgridResultados.Text
            '=============== Puntajes de las opciones =============================
            mfgridResultados.Col = 22
            frmEditAtencion.txtv01.Text = mfgridResultados.Text
            mfgridResultados.Col = 23
            frmEditAtencion.txtv02.Text = mfgridResultados.Text
            mfgridResultados.Col = 24
            frmEditAtencion.txtv03.Text = mfgridResultados.Text
            mfgridResultados.Col = 25
            frmEditAtencion.txtv04.Text = mfgridResultados.Text
            mfgridResultados.Col = 26
            frmEditAtencion.txtv05.Text = mfgridResultados.Text
            mfgridResultados.Col = 27
            frmEditAtencion.txtv06.Text = mfgridResultados.Text
            mfgridResultados.Col = 28
            frmEditAtencion.txtv07.Text = mfgridResultados.Text
            mfgridResultados.Col = 29
            frmEditAtencion.txtv08.Text = mfgridResultados.Text
            mfgridResultados.Col = 30
            frmEditAtencion.txtv09.Text = mfgridResultados.Text
            'muestra el formulario
            frmEditAtencion.ShowDialog()
            '==============================================================================
            'SI la llamada es de VENTAS
        ElseIf (rbtVentas.Checked = True) And (mfgridResultados.Rows > 1) Then
            'Datos de la auditoria NO modificables
            mfgridResultados.Col = 0
            frmEditVentas.lbl_idLLamada.Text = mfgridResultados.Text
            mfgridResultados.Col = 1
            frmEditVentas.txtfechaAudit.Text = mfgridResultados.Text
            mfgridResultados.Col = 2
            frmEditVentas.txtFllamada.Text = mfgridResultados.Text
            mfgridResultados.Col = 3
            frmEditVentas.txtNlote.Text = mfgridResultados.Text
            mfgridResultados.Col = 4
            frmEditVentas.txtTipollamada.Text = mfgridResultados.Text
            mfgridResultados.Col = 5
            frmEditVentas.txtEmpresa.Text = mfgridResultados.Text
            mfgridResultados.Col = 6
            frmEditVentas.txtControlador.Text = mfgridResultados.Text
            mfgridResultados.Col = 7
            frmEditVentas.txtAuditado.Text = mfgridResultados.Text
            '================ Valores para combos de opciones ====================
            mfgridResultados.Col = 8
            frmEditVentas.cbo_salu.Text = mfgridResultados.Text
            mfgridResultados.Col = 9
            frmEditVentas.cbo_empatia.Text = mfgridResultados.Text
            mfgridResultados.Col = 10
            frmEditVentas.cbo_indagacion.Text = mfgridResultados.Text
            mfgridResultados.Col = 11
            frmEditVentas.cbo_manejo.Text = mfgridResultados.Text
            mfgridResultados.Col = 12
            frmEditVentas.cbo_entusiasmo.Text = mfgridResultados.Text
            mfgridResultados.Col = 13
            frmEditVentas.cbo_speech.Text = mfgridResultados.Text
            mfgridResultados.Col = 14
            frmEditVentas.cbo_presentacion.Text = mfgridResultados.Text
            mfgridResultados.Col = 15
            frmEditVentas.cbo_mecanismo.Text = mfgridResultados.Text
            mfgridResultados.Col = 16
            frmEditVentas.cbo_pide.Text = mfgridResultados.Text
            mfgridResultados.Col = 17
            frmEditVentas.rtxt_afavor.Text = mfgridResultados.Text
            mfgridResultados.Col = 18
            frmEditVentas.rtxt_encontra.Text = mfgridResultados.Text
            mfgridResultados.Col = 19
            frmEditVentas.lbl_puntaje.Text = mfgridResultados.Text
            '======================================================================
            'Datos de la auditoria NO modificables
            mfgridResultados.Col = 20
            frmEditVentas.lblIdunico.Text = mfgridResultados.Text
            mfgridResultados.Col = 21
            frmEditVentas.txtCaso.Text = mfgridResultados.Text
            '=============== Puntajes de las opciones =============================
            mfgridResultados.Col = 22
            frmEditVentas.txtv01.Text = mfgridResultados.Text
            mfgridResultados.Col = 23
            frmEditVentas.txtv02.Text = mfgridResultados.Text
            mfgridResultados.Col = 24
            frmEditVentas.txtv03.Text = mfgridResultados.Text
            mfgridResultados.Col = 25
            frmEditVentas.txtv04.Text = mfgridResultados.Text
            mfgridResultados.Col = 26
            frmEditVentas.txtv05.Text = mfgridResultados.Text
            mfgridResultados.Col = 27
            frmEditVentas.txtv06.Text = mfgridResultados.Text
            mfgridResultados.Col = 28
            frmEditVentas.txtv07.Text = mfgridResultados.Text
            mfgridResultados.Col = 29
            frmEditVentas.txtv08.Text = mfgridResultados.Text
            mfgridResultados.Col = 30
            frmEditVentas.txtv09.Text = mfgridResultados.Text
            'muestra el formulario
            frmEditVentas.ShowDialog()
            '==============================================================================
            'SI la llamada es de POSVENTA
        ElseIf (rbtPosvta.Checked = True) And (mfgridResultados.Rows > 1) Then
            'Datos de la auditoria NO modificables
            mfgridResultados.Col = 0
            frmEditPOSVenta.lbl_idLLamada.Text = mfgridResultados.Text
            mfgridResultados.Col = 1
            frmEditPOSVenta.txtfechaAudit.Text = mfgridResultados.Text
            mfgridResultados.Col = 2
            frmEditPOSVenta.txtFllamada.Text = mfgridResultados.Text
            mfgridResultados.Col = 3
            frmEditPOSVenta.txtNlote.Text = mfgridResultados.Text
            mfgridResultados.Col = 4
            frmEditPOSVenta.txtTipollamada.Text = mfgridResultados.Text
            mfgridResultados.Col = 5
            frmEditPOSVenta.txtEmpresa.Text = mfgridResultados.Text
            mfgridResultados.Col = 6
            frmEditPOSVenta.txtControlador.Text = mfgridResultados.Text
            mfgridResultados.Col = 7
            frmEditPOSVenta.txtAuditado.Text = mfgridResultados.Text
            '================ Valores para combos de opciones ====================
            mfgridResultados.Col = 8
            frmEditPOSVenta.cbo_salu.Text = mfgridResultados.Text
            mfgridResultados.Col = 9
            frmEditPOSVenta.cbo_empatia.Text = mfgridResultados.Text
            mfgridResultados.Col = 10
            frmEditPOSVenta.cbo_escucha.Text = mfgridResultados.Text
            mfgridResultados.Col = 11
            frmEditPOSVenta.cbo_indagacion.Text = mfgridResultados.Text
            mfgridResultados.Col = 12
            frmEditPOSVenta.cbo_disposicion.Text = mfgridResultados.Text
            mfgridResultados.Col = 13
            frmEditPOSVenta.cbo_precision.Text = mfgridResultados.Text
            mfgridResultados.Col = 14
            frmEditPOSVenta.cbo_comunicacion.Text = mfgridResultados.Text
            mfgridResultados.Col = 15
            frmEditPOSVenta.cbo_cierre.Text = mfgridResultados.Text
            mfgridResultados.Col = 16
            frmEditPOSVenta.rtxt_afavor.Text = mfgridResultados.Text
            mfgridResultados.Col = 17
            frmEditPOSVenta.rtxt_encontra.Text = mfgridResultados.Text
            mfgridResultados.Col = 18
            frmEditPOSVenta.lbl_puntaje.Text = mfgridResultados.Text
            '======================================================================
            'Datos de la auditoria NO modificables
            mfgridResultados.Col = 19
            frmEditPOSVenta.lblIdunico.Text = mfgridResultados.Text
            mfgridResultados.Col = 20
            frmEditPOSVenta.txtCaso.Text = mfgridResultados.Text
            '=============== Puntajes de las opciones =============================
            mfgridResultados.Col = 21
            frmEditPOSVenta.txtv01.Text = mfgridResultados.Text
            mfgridResultados.Col = 22
            frmEditPOSVenta.txtv02.Text = mfgridResultados.Text
            mfgridResultados.Col = 23
            frmEditPOSVenta.txtv03.Text = mfgridResultados.Text
            mfgridResultados.Col = 24
            frmEditPOSVenta.txtv04.Text = mfgridResultados.Text
            mfgridResultados.Col = 25
            frmEditPOSVenta.txtv05.Text = mfgridResultados.Text
            mfgridResultados.Col = 26
            frmEditPOSVenta.txtv06.Text = mfgridResultados.Text
            mfgridResultados.Col = 27
            frmEditPOSVenta.txtv07.Text = mfgridResultados.Text
            mfgridResultados.Col = 28
            frmEditPOSVenta.txtv08.Text = mfgridResultados.Text
            'muestra el formulario para editar
            frmEditPOSVenta.ShowDialog()
        End If
    End Sub

    Private Sub rbtVentas_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtVentas.CheckedChanged
        mfgridResultados.Clear()
        mfgridResultados.Cols = 1
    End Sub
    Private Sub rbtPosvta_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtPosvta.CheckedChanged
        mfgridResultados.Clear()
        mfgridResultados.Cols = 1
    End Sub

End Class